LOGIC Apps

home *** CD-ROM | disk | FTP | other *** search

/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO070.dsk / FILE.CHOPPER.asm < prev next >

Wrap

Assembly Source File | 2012-02-16 | 16KB | 679 lines

2000- A2 00 LDX #$00 2002- BD 26 20 LDA $2026,X 2005- 9D 00 91 STA $9100,X 2008- BD 26 21 LDA $2126,X 200B- 9D 00 92 STA $9200,X 200E- BD 26 22 LDA $2226,X 2011- 9D 00 93 STA $9300,X 2014- BD 26 23 LDA $2326,X 2017- 9D 00 94 STA $9400,X 201A- BD 26 24 LDA $2426,X 201D- 9D 00 95 STA $9500,X 2020- E8 INX 2021- D0 DF BNE $2002 2023- 4C 00 91 JMP $9100 2026- A2 FF LDX #$FF 2028- 9A TXS 2029- A9 CC LDA #$CC 202B- 8D F2 03 STA $03F2 202E- A9 94 LDA #$94 2030- 8D F3 03 STA $03F3 2033- 49 A5 EOR #$A5 2035- 8D F4 03 STA $03F4 2038- 20 00 C3 JSR $C300 203B- 20 58 FC JSR $FC58 203E- A9 17 LDA #$17 2040- 85 24 STA $24 2042- A9 02 LDA #$02 2044- 85 25 STA $25 2046- 20 22 FC JSR $FC22 2049- 20 80 FE JSR $FE80 204C- A2 1C LDX #$1C 204E- 20 4A F9 JSR $F94A 2051- 20 8E FD JSR $FD8E 2054- A9 17 LDA #$17 2056- 85 24 STA $24 2058- 20 D2 94 JSR $94D2 205B- A0 A0 LDY #$A0 205D- A0 A0 LDY #$A0 205F- A0 A0 LDY #$A0 2061- C6 E9 DEC $E9 2063- EC E5 A0 CPX $A0E5 2066- C3 ??? 2067- E8 INX 2068- EF ??? 2069- F0 F0 BEQ $205B 206B- E5 F2 SBC $F2 206D- A0 F6 LDY #$F6 206F- B1 AE LDA ($AE),Y 2071- B1 A0 LDA ($A0),Y 2073- A0 A0 LDY #$A0 2075- A0 A0 LDY #$A0 2077- 8D 00 A9 STA $A900 207A- 17 ??? 207B- 85 24 STA $24 207D- A2 1C LDX #$1C 207F- 20 4A F9 JSR $F94A 2082- 20 8E FD JSR $FD8E 2085- 20 8E FD JSR $FD8E 2088- 20 8E FD JSR $FD8E 208B- A9 17 LDA #$17 208D- 85 24 STA $24 208F- 20 84 FE JSR $FE84 2092- 20 D2 94 JSR $94D2 2095- C3 ??? 2096- EF ??? 2097- F0 F9 BEQ $2092 2099- F2 ??? 209A- E9 E7 SBC #$E7 209C- E8 INX 209D- F4 ??? 209E- A0 B1 LDY #$B1 20A0- B9 B8 B8 LDA $B8B8,Y 20A3- A0 E2 LDY #$E2 20A5- F9 A0 D4 SBC $D4A0,Y 20A8- EF ??? 20A9- ED A0 C8 SBC $C8A0 20AC- EF ??? 20AD- EF ??? 20AE- F6 E5 INC $E5,X 20B0- F2 ??? 20B1- 8D 8D 8D STA $8D8D 20B4- 8D 00 A9 STA $A900 20B7- 0A ASL 20B8- 85 22 STA $22 20BA- AD E8 91 LDA $91E8 20BD- C9 00 CMP #$00 20BF- D0 03 BNE $20C4 20C1- 20 F4 92 JSR $92F4 20C4- 20 00 BF JSR $BF00 20C7- C8 INY 20C8- 04 ??? 20C9- 95 B0 STA $B0,X 20CB- 4B ??? 20CC- A9 1A LDA #$1A 20CE- 85 06 STA $06 20D0- AD 09 95 LDA $9509 20D3- 8D 18 95 STA $9518 20D6- 20 58 FC JSR $FC58 20D9- 20 D2 94 JSR $94D2 20DC- C8 INY 20DD- EF ??? 20DE- EC E4 A0 CPX $A0E4 20E1- EF ??? 20E2- EE AC A0 INC $A0AC 20E5- C9 A7 CMP #$A7 20E7- ED A0 F7 SBC $F7A0 20EA- EF ??? 20EB- F2 ??? 20EC- EB ??? 20ED- E9 EE SBC #$EE 20EF- E7 ??? 20F0- AE 00 A0 LDX $A000 20F3- AE 20 00 LDX $0020 20F6- BF ??? 20F7- C0 F5 CPY #$F5 20F9- 94 B0 STY $B0,X 20FB- 1B ??? 20FC- 20 00 BF JSR $BF00 20FF- C8 INY 2100- 0A ASL 2101- 95 B0 STA $B0,X 2103- 13 ??? 2104- AD 0F 95 LDA $950F 2107- 8D 20 95 STA $9520 210A- 8D F4 94 STA $94F4 210D- A9 00 LDA #$00 210F- 85 07 STA $07 2111- 20 00 BF JSR $BF00 2114- CA DEX 2115- 17 ??? 2116- 95 B0 STA $B0,X 2118- 29 98 AND #$98 211A- 20 ED FD JSR $FDED 211D- AD 1D 95 LDA $951D 2120- 8D 23 95 STA $9523 2123- AD 1E 95 LDA $951E 2126- 8D 24 95 STA $9524 2129- 20 00 BF JSR $BF00 212C- CB ??? 212D- 1F ??? 212E- 95 B0 STA $B0,X 2130- 11 AD ORA ($AD),Y 2132- 1E 95 C9 ASL $C995,X 2135- 64 ??? 2136- D0 19 BNE $2151 2138- C6 07 DEC $07 213A- D0 D5 BNE $2111 213C- 20 00 BF JSR $BF00 213F- CC F3 94 CPY $94F3 2142- B0 70 BCS $21B4 2144- AE 67 95 LDX $9567 2147- FE 67 95 INC $9567,X 214A- C6 06 DEC $06 214C- D0 A6 BNE $20F4 214E- 4C 7C 92 JMP $927C 2151- 20 58 FC JSR $FC58 2154- 20 D2 94 JSR $94D2 2157- C4 EF CPY $EF 2159- A0 F9 LDY #$F9 215B- EF ??? 215C- F5 A0 SBC $A0,X 215E- F7 ??? 215F- E1 EE SBC ($EE,X) 2161- F4 ??? 2162- A0 F4 LDY #$F4 2164- EF ??? 2165- A0 E4 LDY #$E4 2167- E5 EC SBC $EC 2169- E5 F4 SBC $F4 216B- E5 A0 SBC $A0 216D- 00 BRK 216E- A2 00 LDX #$00 2170- E8 INX 2171- BD 27 95 LDA $9527,X 2174- F0 05 BEQ $217B 2176- 20 ED FD JSR $FDED 2179- D0 F5 BNE $2170 217B- 20 D2 94 JSR $94D2 217E- A0 A8 LDY #$A8 2180- F9 AF EE SBC $EEAF,Y 2183- A9 BF LDA #$BF 2185- A0 00 LDY #$00 2187- 8D 10 C0 STA $C010 218A- AD 00 C0 LDA $C000 218D- 10 FB BPL $218A 218F- 29 DF AND #$DF 2191- C9 D9 CMP #$D9 2193- D0 0D BNE $21A2 2195- 20 E8 92 JSR $92E8 2198- 20 00 BF JSR $BF00 219B- C1 01 CMP ($01,X) 219D- 95 B0 STA $B0,X 219F- 14 ??? 21A0- 90 03 BCC $21A5 21A2- 20 E8 92 JSR $92E8 21A5- CE F4 03 DEC $03F4 21A8- 20 00 BF JSR $BF00 21AB- 65 10 ADC $10 21AD- 95 B0 STA $B0,X 21AF- 04 ??? 21B0- 18 CLC 21B1- 4C 1E 92 JMP $921E 21B4- C9 47 CMP #$47 21B6- F0 F8 BEQ $21B0 21B8- 48 PHA 21B9- 20 58 FC JSR $FC58 21BC- 20 D2 94 JSR $94D2 21BF- 8D 8D ED STA $ED8D 21C2- EC E9 A0 CPX $A0E9 21C5- E5 F2 SBC $F2 21C7- F2 ??? 21C8- EF ??? 21C9- F2 ??? 21CA- A0 A4 LDY #$A4 21CC- 00 BRK 21CD- 68 PLA 21CE- 20 DA FD JSR $FDDA 21D1- 20 D2 94 JSR $94D2 21D4- A0 E1 LDY #$E1 21D6- F4 ??? 21D7- A0 A4 LDY #$A4 21D9- 00 BRK 21DA- AD 9D BF LDA $BF9D 21DD- 20 DA FD JSR $FDDA 21E0- AD 9C BF LDA $BF9C 21E3- 20 DA FD JSR $FDDA 21E6- 20 8E FD JSR $FD8E 21E9- 20 D2 94 JSR $94D2 21EC- 8D AE AE STA $AEAE 21EF- AE A0 D0 LDX $D0A0 21F2- F2 ??? 21F3- E5 F3 SBC $F3 21F5- F3 ??? 21F6- A0 E1 LDY #$E1 21F8- A0 EB LDY #$EB 21FA- E5 F9 SBC $F9 21FC- A0 F4 LDY #$F4 21FE- EF ??? 21FF- A0 F1 LDY #$F1 2201- F5 E9 SBC $E9,X 2203- F4 ??? 2204- 00 BRK 2205- AD 00 C0 LDA $C000 2208- 10 FB BPL $2205 220A- 18 CLC 220B- 4C 7C 92 JMP $927C 220E- 9C ??? 220F- F4 ??? 2210- 94 20 STY $20,X 2212- 00 BRK 2213- BF ??? 2214- CC F3 94 CPY $94F3 2217- B0 9B BCS $21B4 2219- 60 RTS 221A- A9 15 LDA #$15 221C- 85 24 STA $24 221E- 20 D2 94 JSR $94D2 2221- C5 EE CMP $EE 2223- F4 ??? 2224- E5 F2 SBC $F2 2226- A0 F3 LDY #$F3 2228- E9 FA SBC #$FA 222A- E5 A0 SBC $A0 222C- EF ??? 222D- E6 A0 INC $A0 222F- F4 ??? 2230- E5 F8 SBC $F8 2232- F4 ??? 2233- A0 E6 LDY #$E6 2235- E9 EC SBC #$EC 2237- E5 F3 SBC $F3 2239- A0 E4 LDY #$E4 223B- E5 F3 SBC $F3 223D- E9 F2 SBC #$F2 223F- E5 E4 SBC $E4 2241- BA TSX 2242- 8D 8D 00 STA $008D 2245- A9 16 LDA #$16 2247- 85 24 STA $24 2249- 20 D2 94 JSR $94D2 224C- B1 AD LDA ($AD),Y 224E- A0 B2 LDY #$B2 2250- B5 EB LDA $EB,X 2252- A0 A0 LDY #$A0 2254- A0 A0 LDY #$A0 2256- A0 B4 LDY #$B4 2258- AD A0 B1 LDA $B1A0 225B- B0 B0 BCS $220D 225D- EB ??? 225E- A0 A0 LDY #$A0 2260- A0 A0 LDY #$A0 2262- A0 B7 LDY #$B7 2264- AD A0 B1 LDA $B1A0 2267- B7 ??? 2268- B5 EB LDA $EB,X 226A- 8D 00 A9 STA $A900 226D- 16 85 ASL $85,X 226F- 24 20 BIT $20 2271- D2 ??? 2272- 94 B2 STY $B2,X 2274- AD A0 B5 LDA $B5A0 2277- B0 EB BCS $2264 2279- A0 A0 LDY #$A0 227B- A0 A0 LDY #$A0 227D- A0 B5 LDY #$B5 227F- AD A0 B1 LDA $B1A0 2282- B2 ??? 2283- B5 EB LDA $EB,X 2285- A0 A0 LDY #$A0 2287- A0 A0 LDY #$A0 2289- A0 B8 LDY #$B8 228B- AD A0 B2 LDA $B2A0 228E- B0 B0 BCS $2240 2290- EB ??? 2291- 8D 00 A9 STA $A900 2294- 16 85 ASL $85,X 2296- 24 20 BIT $20 2298- D2 ??? 2299- 94 B3 STY $B3,X 229B- AD A0 B7 LDA $B7A0 229E- B5 EB LDA $EB,X 22A0- A0 A0 LDY #$A0 22A2- A0 A0 LDY #$A0 22A4- A0 B6 LDY #$B6 22A6- AD A0 B1 LDA $B1A0 22A9- B5 B0 LDA $B0,X 22AB- EB ??? 22AC- A0 A0 LDY #$A0 22AE- A0 A0 LDY #$A0 22B0- A0 B9 LDY #$B9 22B2- AD A0 B2 LDA $B2A0 22B5- B2 ??? 22B6- B5 EB LDA $EB,X 22B8- 8D 8D 00 STA $008D 22BB- A9 20 LDA #$20 22BD- 85 24 STA $24 22BF- 20 D2 94 JSR $94D2 22C2- D3 ??? 22C3- E5 EC SBC $EC 22C5- E5 E3 SBC $E3 22C7- F4 ??? 22C8- BA TSX 22C9- A0 00 LDY #$00 22CB- 8D 10 C0 STA $C010 22CE- AD 00 C0 LDA $C000 22D1- 10 FB BPL $22CE 22D3- C9 9B CMP #$9B 22D5- D0 06 BNE $22DD 22D7- 8D 10 C0 STA $C010 22DA- 4C 7C 92 JMP $927C 22DD- C9 B1 CMP #$B1 22DF- 90 EA BCC $22CB 22E1- C9 BA CMP #$BA 22E3- B0 E6 BCS $22CB 22E5- 20 ED FD JSR $FDED 22E8- 8D 10 C0 STA $C010 22EB- 29 0F AND #$0F 22ED- 8D E8 91 STA $91E8 22F0- 20 58 FC JSR $FC58 22F3- A9 05 LDA #$05 22F5- 85 24 STA $24 22F7- 20 D2 94 JSR $94D2 22FA- C5 EE CMP $EE 22FC- F4 ??? 22FD- E5 F2 SBC $F2 22FF- A0 C6 LDY #$C6 2301- D5 CC CMP $CC,X 2303- CC A0 F0 CPY $F0A0 2306- E1 F4 SBC ($F4,X) 2308- E8 INX 2309- EE E1 ED INC $EDE1 230C- E5 A0 SBC $A0 230E- EF ??? 230F- E6 A0 INC $A0 2311- E6 E9 INC $E9 2313- EC E5 A0 CPX $A0E5 2316- F4 ??? 2317- E8 INX 2318- E1 F4 SBC ($F4,X) 231A- A0 F9 LDY #$F9 231C- EF ??? 231D- F5 A0 SBC $A0,X 231F- F7 ??? 2320- E9 F3 SBC #$F3 2322- E8 INX 2323- A0 F4 LDY #$F4 2325- EF ??? 2326- A0 F3 LDY #$F3 2328- F0 EC BEQ $2316 232A- E9 F4 SBC #$F4 232C- BA TSX 232D- 8D 8D 00 STA $008D 2330- A9 0A LDA #$0A 2332- 85 24 STA $24 2334- A9 BE LDA #$BE 2336- 85 33 STA $33 2338- 20 6A FD JSR $FD6A 233B- 8E 27 95 STX $9527 233E- BD FF 01 LDA $01FF,X 2341- 9D 27 95 STA $9527,X 2344- CA DEX 2345- D0 F7 BNE $233E 2347- 20 58 FC JSR $FC58 234A- A9 05 LDA #$05 234C- 85 24 STA $24 234E- 20 D2 94 JSR $94D2 2351- C5 EE CMP $EE 2353- F4 ??? 2354- E5 F2 SBC $F2 2356- A0 F4 LDY #$F4 2358- E8 INX 2359- E5 A0 SBC $A0 235B- D0 C1 BNE $231E 235D- D4 ??? 235E- C8 INY 235F- CE C1 CD DEC $CDC1 2362- C5 A0 CMP $A0 2364- CF ??? 2365- C6 A0 DEC $A0 2367- D4 ??? 2368- C8 INY 2369- C5 A0 CMP $A0 236B- C4 C9 CPY $C9 236D- D2 ??? 236E- C5 C3 CMP $C3 2370- D4 ??? 2371- CF ??? 2372- D2 ??? 2373- D9 A0 F7 CMP $F7A0,Y 2376- E8 INX 2377- E5 F2 SBC $F2 2379- E5 A0 SBC $A0 237B- F9 EF F5 SBC $F5EF,Y 237E- A0 F7 LDY #$F7 2380- E1 EE SBC ($EE,X) 2382- F4 ??? 2383- A0 F4 LDY #$F4 2385- E8 INX 2386- E5 A0 SBC $A0 2388- EE E5 F7 INC $F7E5 238B- A0 E6 LDY #$E6 238D- E9 EC SBC #$EC 238F- E5 F3 SBC $F3 2391- A0 F3 LDY #$F3 2393- E1 F6 SBC ($F6,X) 2395- E5 E4 SBC $E4 2397- 8D 8D 00 STA $008D 239A- A9 0A LDA #$0A 239C- 85 24 STA $24 239E- 20 6A FD JSR $FD6A 23A1- BD FF 01 LDA $01FF,X 23A4- C9 AF CMP #$AF 23A6- F0 06 BEQ $23AE 23A8- E8 INX 23A9- A9 AF LDA #$AF 23AB- 9D FF 01 STA $01FF,X 23AE- 8E 67 95 STX $9567 23B1- BD FF 01 LDA $01FF,X 23B4- 9D 67 95 STA $9567,X 23B7- CA DEX 23B8- D0 F7 BNE $23B1 23BA- AE 27 95 LDX $9527 23BD- E8 INX 23BE- CA DEX 23BF- BD 27 95 LDA $9527,X 23C2- C9 AF CMP #$AF 23C4- D0 F8 BNE $23BE 23C6- AC 67 95 LDY $9567 23C9- E8 INX 23CA- C8 INY 23CB- BD 27 95 LDA $9527,X 23CE- 99 67 95 STA $9567,Y 23D1- EC 27 95 CPX $9527 23D4- D0 F3 BNE $23C9 23D6- 38 SEC 23D7- 98 TYA 23D8- ED 67 95 SBC $9567 23DB- C9 0E CMP #$0E 23DD- 90 03 BCC $23E2 23DF- 88 DEY 23E0- B0 F5 BCS $23D7 23E2- C8 INY 23E3- A9 AE LDA #$AE 23E5- 99 67 95 STA $9567,Y 23E8- C8 INY 23E9- A9 C1 LDA #$C1 23EB- 99 67 95 STA $9567,Y 23EE- 8C 67 95 STY $9567 23F1- 60 RTS 23F2- 20 E8 92 JSR $92E8 23F5- 4C 00 91 JMP $9100 23F8- 68 PLA 23F9- 85 08 STA $08 23FB- 68 PLA 23FC- 85 09 STA $09 23FE- A0 01 LDY #$01 2400- B1 08 LDA ($08),Y 2402- F0 06 BEQ $240A 2404- 20 ED FD JSR $FDED 2407- C8 INY 2408- D0 F6 BNE $2400 240A- 18 CLC 240B- 98 TYA 240C- 65 08 ADC $08 240E- 85 08 STA $08 2410- A5 09 LDA $09 2412- 69 00 ADC #$00 2414- 48 PHA 2415- A5 08 LDA $08 2417- 48 PHA 2418- 60 RTS 2419- 01 00 ORA ($00,X) 241B- 07 ??? 241C- 67 ??? 241D- 95 E3 STA $E3,X 241F- 04 ??? 2420- 00 BRK 2421- 00 BRK 2422- 01 00 ORA ($00,X) 2424- 00 BRK 2425- 00 BRK 2426- 00 BRK 2427- 01 27 ORA ($27,X) 2429- 95 03 STA $03,X 242B- 27 ??? 242C- 95 00 STA $00,X 242E- 10 00 BPL $2430 2430- 03 ??? 2431- 67 ??? 2432- 95 00 STA $00,X 2434- 14 ??? 2435- 00 BRK 2436- 04 ??? 2437- 00 BRK 2438- 00 BRK 2439- 00 BRK 243A- 00 BRK 243B- 00 BRK 243C- 00 BRK 243D- 04 ??? 243E- 09 00 ORA #$00 2440- 20 00 64 JSR $6400 2443- 00 BRK 2444- 00 BRK 2445- 04 ??? 2446- 0F ??? 2447- 00 BRK 2448- 20 00 64 JSR $6400 244B- 00 BRK 244C- 00 BRK 244D- 00 BRK 244E- 00 BRK 244F- 00 BRK 2450- 00 BRK 2451- 00 BRK 2452- 00 BRK 2453- 00 BRK 2454- 00 BRK 2455- 00 BRK 2456- 00 BRK 2457- 00 BRK 2458- 00 BRK 2459- 00 BRK 245A- 00 BRK 245B- 00 BRK 245C- 00 BRK 245D- 00 BRK 245E- 00 BRK 245F- 00 BRK 2460- 00 BRK 2461- 00 BRK 2462- 00 BRK 2463- 00 BRK 2464- 00 BRK 2465- 00 BRK 2466- 00 BRK 2467- 00 BRK 2468- 00 BRK 2469- 00 BRK 246A- 00 BRK 246B- 00 BRK 246C- 00 BRK 246D- 00 BRK 246E- 00 BRK 246F- 00 BRK 2470- 00 BRK 2471- 00 BRK 2472- 00 BRK 2473- 00 BRK 2474- 00 BRK 2475- 00 BRK 2476- 00 BRK 2477- 00 BRK 2478- 00 BRK 2479- 00 BRK 247A- 00 BRK 247B- 00 BRK 247C- 00 BRK 247D- 00 BRK 247E- 00 BRK 247F- 00 BRK 2480- 00 BRK 2481- 00 BRK 2482- 00 BRK 2483- 00 BRK 2484- 00 BRK 2485- 00 BRK 2486- 00 BRK 2487- 00 BRK 2488- 00 BRK 2489- 00 BRK 248A- 00 BRK 248B- 00 BRK 248C- 00 BRK 248D- 00 BRK 248E- 00 BRK 248F- 00 BRK 2490- 00 BRK 2491- 00 BRK 2492- 00 BRK 2493- 00 BRK 2494- 00 BRK 2495- 00 BRK 2496- 00 BRK 2497- 00 BRK 2498- 00 BRK 2499- 00 BRK 249A- 00 BRK 249B- 00 BRK 249C- 00 BRK 249D- 00 BRK 249E- 00 BRK 249F- 00 BRK 24A0- 00 BRK 24A1- 00 BRK 24A2- 00 BRK 24A3- 00 BRK 24A4- 00 BRK 24A5- 00 BRK 24A6- 00 BRK 24A7- 00 BRK 24A8- 00 BRK 24A9- 00 BRK 24AA- 00 BRK 24AB- 00 BRK 24AC- 00 BRK 24AD- 00 BRK 24AE- 00 BRK 24AF- 00 BRK 24B0- 00 BRK 24B1- 00 BRK 24B2- 00 BRK 24B3- 00 BRK 24B4- 00 BRK 24B5- 00 BRK 24B6- 00 BRK 24B7- 00 BRK 24B8- 00 BRK 24B9- 00 BRK 24BA- 00 BRK 24BB- 00 BRK 24BC- 00 BRK 24BD- 00 BRK 24BE- 00 BRK 24BF- 00 BRK 24C0- 00 BRK 24C1- 00 BRK 24C2- 00 BRK 24C3- 00 BRK 24C4- 00 BRK 24C5- 00 BRK 24C6- 00 BRK 24C7- 00 BRK 24C8- 00 BRK 24C9- 00 BRK 24CA- 00 BRK 24CB- 00 BRK 24CC- 00 BRK